Option Explicit
Sub L_Sample004()
    'ոL_Data02
    Dim mySht     As Worksheet
    Dim myConf    As ControlFormat
    Dim myConfObj As Object
    Dim myStr     As String
    Dim myTmpStr  As String
    Set mySht = Worksheets("L_Data02")			'N
    mySht.Activate
    'wExcel]M^
    Set myConf = mySht.Shapes("List Box 1").ControlFormat
    With myConf
        'xsd򪺫w
        .ListFillRange = mySht.Name & "!$F$3:$F$12"
        'ӧOsW
        .AddItem "Excel", 1
        .AddItem "Word", 2
        .AddItem "Access", 3
        'H}CӷsW
        Set myConfObj = myConf
        myConfObj.List = Array("97", "2000", "2002")
        'myConf.List = Array("97", "2000", "2002")	'Lk`B@
    End With
    'wExcel]զX^
    Set myConf = mySht.Shapes("Drop Down 2").ControlFormat
    With myConf
        'xsd򪺫w
        .ListFillRange = mySht.Name & "!$F$3:$F$12"
        'ӧOsW
        .AddItem "Excel", 1
        .AddItem "Word", 2
        .AddItem "Access", 3
        'H}CӷsW
        Set myConfObj = myConf
        myConfObj.List = Array("97", "2000", "2002")
        'myConf.List = Array("97", "2000", "2002")	'Lk`B@
    End With
    Set myConf = Nothing					'
    Set mySht = Nothing
End Sub
